home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe131 < prev    next >
Text File  |  2007-02-28  |  2KB  |  69 lines
  1. 0010 DIM FRUIT$(6) OF 10, TOKEN$ OF 1
  2. 0020 DIM F1$ OF 10, F2$ OF 10, F3$ OF 10
  3. 0030 WINNINGS:=0; STAKED:=0
  4. 0040 //
  5. 0050 FRUIT$(1):="APPLE"
  6. 0060 FRUIT$(2):="PEAR"
  7. 0070 FRUIT$(3):="PLUM"
  8. 0080 FRUIT$(4):="BANANA"
  9. 0090 FRUIT$(5):="LEMON"
  10. 0100 FRUIT$(6):="GRAPE"
  11. 0110 //
  12. 0120 CLEAR'TO(4)
  13. 0130 PRINT "HERE WE GO! TO INSERT A COIN"
  14. 0140 PRINT "IN THE SLOT, PRESS 'RETURN'."
  15. 0150 PRINT "TO STOP, PRESS 'N' AND 'RETURN'."
  16. 0160 REPEAT 
  17. 0170 PRINT 
  18. 0180 PRINT "INSERT A COIN",
  19. 0190 INPUT TOKEN$
  20. 0200 IF TOKEN$="N" THEN ADIEU
  21. 0210 THE'GAME
  22. 0220 UNTIL FALSE //FOREVER//
  23. 0230 //
  24. 0240 PROC THE'GAME 
  25. 0250 STAKED:=STAKED+1
  26. 0260 F1$:=FRUIT$(RND(1,6))
  27. 0270 F2$:=FRUIT$(RND(1,6))
  28. 0280 F3$:=FRUIT$(RND(1,6))
  29. 0290 CLEAR'TO(5)
  30. 0300 PRINT F1$,TAB(15),F2$,TAB(30),F3$
  31. 0310 RESULT
  32. 0320 ENDPROC THE'GAME
  33. 0330 //
  34. 0340 PROC RESULT 
  35. 0350 FOR I:=1 TO 3 DO PRINT  //3 DOWN
  36. 0360 IF F1$=F2$ AND F2$=F3$ THEN
  37. 0370 BELL(7)
  38. 0380 PRINT "HURRAH! H U R R A H!  H  U  R  R  A  H!!"
  39. 0390 PRINT "YOU HAVE WON 20 COINS!!!"
  40. 0400 WINNINGS:=WINNINGS+20
  41. 0410 ELSE 
  42. 0420 IF F1$=F2$ OR F2$=F3$ THEN
  43. 0430 BELL(2)
  44. 0440 PRINT "FINE!"
  45. 0450 PRINT "YOU HAVE WON 2 COINS!"
  46. 0460 WINNINGS:=WINNINGS+2
  47. 0470 ENDIF 
  48. 0480 ENDIF 
  49. 0490 ENDPROC RESULT
  50. 0500 //
  51. 0510 PROC ADIEU 
  52. 0520 CLEAR'TO(5)
  53. 0530 PRINT "IT WAS NICE TO PLAY WITH YOU."
  54. 0540 PRINT "ASK OUR CASHIER TO EXCHANGE"
  55. 0550 PRINT "YOUR WINNINGS INTO REAL MONEY"
  56. 0560 PRINT "- IF HE HAS ANY - AS A RULE HE HASN'T,"
  57. 0570 PRINT "BUT WE HOPE YOU HAD SOME FUN."
  58. 0580 STOP  //STOP THE PROGRAM
  59. 0590 ENDPROC ADIEU
  60. 0600 //
  61. 0610 PROC CLEAR'TO(X) 
  62. 0620 PRINT CHR$(147), //CLEAR
  63. 0630 FOR I:=1 TO X DO PRINT  //X DOWN
  64. 0640 ENDPROC CLEAR'TO
  65. 0650 //
  66. 0660 PROC BELL(X) 
  67. 0670 FOR I:=1 TO X DO PRINT CHR$(7),
  68. 0680 ENDPROC BELL
  69.